catch {
#BWSPOOL <START>

#set objExcel,ObjWorkbook,objSheet
set objExcel CreateObject("Excel.Application")

set objWorkbook $objExcel.Workbooks.Open("C:\\webaccess\\testSQL.xlsx")

set objSheet $objExcel.ActiveWorkbook.Worksheets(1)
BWSPOOL $objSheet
} err
BWSPOOL $err

objSheet.Cells(1,1).Value=987

objExcel.DisplayAlerts = False
objWorkbook.SaveAs "C:\webaccess\testSQL.xlsx"

objExcel.ActiveWorkbook.Close
objExcel.Workbooks.Close
objExcel.Application.Quit
Set objExcel = Nothing


#BWSPOOL <end>
